home *** CD-ROM | disk | FTP | other *** search
/ Data Base of the Video Yearbook 1995 / Data Base of the Video Yearbook 1995 - Disc 1.iso / cosmos / aiue.dir / 00002_èóóDï .ls < prev    next >
Encoding:
Text File  |  1995-12-21  |  1.3 KB  |  41 lines
  1. on mouseUp
  2.   global numb, kenname, kennamer, mydatebase, sdata, tkazu
  3.   set mline to mouseLine()
  4.   if mline < the number of items in sdata then
  5.     if mline <> -1 then
  6.       put mline, the number of items in sdata
  7.       set the textSize of field "ﾃ･ﾃｼﾃｧﾂｦﾃ･ﾃ｣ﾃ｢ﾂ" to 18
  8.       set tno to value(item mline of sdata)
  9.       put item 2 of line tno of mydatebase into field "ﾃ･ﾃｼﾃｧﾂｦﾃ･ﾃ｣ﾃ｢ﾂ"
  10.       if item 11 of line tno of mydatebase <> "0" then
  11.         put "    " & item 11 of line tno of mydatebase after field "ﾃ･ﾃｼﾃｧﾂｦﾃ･ﾃ｣ﾃ｢ﾂ"
  12.       end if
  13.       set the textSize of field "ﾃ･ﾃｼﾃｧﾂｦﾃ･ﾃ｣ﾃ｢ﾂ" to 18
  14.       set the textFont of field "ﾃ･ﾃｼﾃｧﾂｦﾃ･ﾃ｣ﾃ｢ﾂ" to "osaka"
  15.       updateStage()
  16.     else
  17.       beep()
  18.     end if
  19.   else
  20.     beep()
  21.   end if
  22.   if (mline < the number of items in sdata) or (mline = -1) then
  23.     if doubleClick() then
  24.       if mline <= 0 then
  25.         set i to the number of lines in field "ﾃｨﾃｳﾃｳDﾃｯﾂ"
  26.         hilite line i of field "ﾃｨﾃｳﾃｳDﾃｯﾂ"
  27.         exit
  28.       end if
  29.       repeat with n = 1 to 2
  30.         set i to the number of lines in field "ﾃｨﾃｳﾃｳDﾃｯﾂ" + 1
  31.         hilite line i of field "ﾃｨﾃｳﾃｳDﾃｯﾂ"
  32.         hilite line mline of field "ﾃｨﾃｳﾃｳDﾃｯﾂ"
  33.       end repeat
  34.       set numb to value(item mline of sdata)
  35.       set kennamer to "ﾃｨﾃｳﾃｳDﾃｯﾂ"
  36.       set kenname to "AIUE"
  37.       go(1, "PACK2")
  38.     end if
  39.   end if
  40. end
  41.